home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / bin_c / short17.c < prev    next >
C/C++ Source or Header  |  1998-12-22  |  4KB  |  130 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.79)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "short.h"
  9.  
  10.  
  11. T0* r110runnable_expression(T0* a1,T0* a2){
  12. T0* R=NULL;
  13. R=X53to_runnable(a1,a2);
  14. /*[IF*/
  15. if((R)==((void*)(NULL))){
  16. r67add_position(X53start_position(a1));
  17. /*[IRF3.6fatal_error*/{T0* b1=((T0*)ms105_16515);
  18. r67fatal_error((T67*)(oBC11eh),b1);
  19. }/*]*/
  20. }
  21. /*FI]*/
  22. return R;
  23. }
  24. /*No:CALL_INFIX_AND_THEN.implicit_cast*/
  25. /*No:CALL_INFIX_AND_THEN.arg1*/
  26. /*No:CALL_INFIX_AND_THEN.us_and_then*/
  27.  
  28.  
  29. void r110run_feature_has_result(T110* C){
  30. /*[IF*/
  31. if((X312result_type((C)->_run_feature/*16*/))==((void*)(NULL))){
  32. r67add_position(X312start_position((C)->_run_feature/*16*/));
  33. r67add_position(((T125*)((C)->_feature_name/*12*/))->_start_position/*8*/);
  34. /*[IRF3.6fatal_error*/{T0* b1=((T0*)ms104_53650);
  35. r67fatal_error((T67*)(oBC11eh),b1);
  36. }/*]*/
  37. }
  38. /*FI]*/
  39. }
  40.  
  41.  
  42. T0* r110run_feature_for(T110* C,T0* a1,T0* a2){
  43. T0* R=NULL;
  44. T0* _rc=NULL;
  45. _rc=X46run_class(X53result_type(a1));
  46. R=r310get_rf(((T310*)_rc),a1,(C)->_feature_name/*12*/,a2);
  47. return R;
  48. }
  49. /*No:CALL_INFIX_AND_THEN.target*/
  50.  
  51.  
  52. void r110error(T0* a1,T0* a2){
  53. r67add_position(a1);
  54. r67error((T67*)(oBC11eh),a2);
  55. }
  56. /*No:CALL_INFIX_AND_THEN.precedence*/
  57.  
  58.  
  59. void r110make(T110* C,T0* a1,T0* a2,T0* a3){
  60. C->_target=a1;
  61. {T125*n=malloc(sizeof(*n));
  62. *n=M125;
  63. r125make(n,r110operator(),a2);
  64. C->_feature_name=(T0*)n;
  65. }
  66. {T136*n=malloc(sizeof(*n));
  67. *n=M136;
  68. /*[IRF3.3make_1*/((((T136*)(n)))->_first_one)=(a3);
  69. /*]*/
  70. C->_arguments=(T0*)n;
  71. }
  72. }
  73. /*No:CALL_INFIX_AND_THEN.is_current*/
  74. /*No:CALL_INFIX_AND_THEN.short_print_feature_name*/
  75. /*No:CALL_INFIX_AND_THEN.is_void*/
  76.  
  77.  
  78. T0* r110operator(void){
  79. T0* R=NULL;
  80. R=((T0*)ms13_10800);
  81. return R;
  82. }
  83.  
  84.  
  85. void r110short_target(T110* C){
  86. r110bracketed_short(C);
  87. /*[IRF3.6a_dot*/{T39* C1=(T39*)(oBC11short_print);
  88. r39hook_or(C1,((T0*)ms39_999a),((T0*)ms12_47));
  89. }/*]*/
  90. }
  91.  
  92.  
  93. void r110short(T110* C){
  94. /*[IF*/
  95. if((X53precedence((C)->_target/*4*/))==(13)){
  96. X53short((C)->_target/*4*/);
  97. /*[IRF3.6short_print_feature_name*/{T110* C1=C;
  98. r39a_infix_name((T39*)(oBC11short_print),((T0*)ms102_7338),((T0*)ms102_33a),((T0*)ms102_7332),((T0*)ms102_33),(C1)->_feature_name/*12*/);
  99. }/*]*/
  100. /*[IF*/
  101. if((X53precedence(/*(IRF4.6arg1*//*(IRF4.3first*/(((T136*)((C)->_arguments/*8*/)))->_first_one/*0*//*)*//*)*/))==(13)){
  102. X53short(/*(IRF4.6arg1*//*(IRF4.3first*/(((T136*)((C)->_arguments/*8*/)))->_first_one/*0*//*)*//*)*/);
  103. }
  104.  else if((5)>=(X53precedence(/*(IRF4.6arg1*//*(IRF4.3first*/(((T136*)((C)->_arguments/*8*/)))->_first_one/*0*//*)*//*)*/))){
  105. X53bracketed_short(/*(IRF4.6arg1*//*(IRF4.3first*/(((T136*)((C)->_arguments/*8*/)))->_first_one/*0*//*)*//*)*/);
  106. }
  107. else{
  108. X53short(/*(IRF4.6arg1*//*(IRF4.3first*/(((T136*)((C)->_arguments/*8*/)))->_first_one/*0*//*)*//*)*/);
  109. }
  110. /*FI]*/
  111. }
  112.  else if((X53precedence((C)->_target/*4*/))<(5)){
  113. X53bracketed_short((C)->_target/*4*/);
  114. /*[IRF3.6short_print_feature_name*/{T110* C1=C;
  115. r39a_infix_name((T39*)(oBC11short_print),((T0*)ms102_7338),((T0*)ms102_33a),((T0*)ms102_7332),((T0*)ms102_33),(C1)->_feature_name/*12*/);
  116. }/*]*/
  117. X53short(/*(IRF4.6arg1*//*(IRF4.3first*/(((T136*)((C)->_arguments/*8*/)))->_first_one/*0*//*)*//*)*/);
  118. }
  119. else{
  120. X53short((C)->_target/*4*/);
  121. /*[IRF3.6short_print_feature_name*/{T110* C1=C;
  122. r39a_infix_name((T39*)(oBC11short_print),((T0*)ms102_7338),((T0*)ms102_33a),((T0*)ms102_7332),((T0*)ms102_33),(C1)->_feature_name/*12*/);
  123. }/*]*/
  124. X53short(/*(IRF4.6arg1*//*(IRF4.3first*/(((T136*)((C)->_arguments/*8*/)))->_first_one/*0*//*)*//*)*/);
  125. }
  126. /*FI]*/
  127. }
  128. /*No:CALL_INFIX_AND_THEN.atomic_precedence*/
  129.  
  130.